home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
25 Great Action Games 2
/
Disk Image of sr0 (2022-06-01 1821).img
/
action2.mst
< prev
next >
Wrap
Text File
|
1994-08-16
|
10KB
|
376 lines
'**************************************************************************
'* MSSetup Toolkit Sample 2
'**************************************************************************
'$DEFINE DEBUG ''Define for script development/debugging
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
''Dialog ID's
CONST WELCOME = 100
CONST ASKQUIT = 200
CONST DESTPATH = 300
CONST EXITFAILURE = 400
CONST EXITQUIT = 600
CONST EXITSUCCESS = 700
CONST OPTIONS = 800
CONST APPHELP = 900
CONST MULTILIST = 3900
CONST TOOBIG = 6300
CONST BADPATH = 6400
CONST SELECT_GAMES = 7900
CONST GLOBALSTAR = 7901
''Bitmap ID
CONST LOGO = 1
CONST NumOfGames = 25 ''change these values if you use less than 25 games
CONST Group1 = 15 ''for first group of games
CONST Group2 = 25 ''for second group
''File Types
CONST APPFILES = 1
CONST OPTFILES1 = 2
CONST OPTFILES2 = 3
GLOBAL GAMES$ (NumOfGames)
GLOBAL PATHS$ (NumOfGames)
GLOBAL OPSYS$ (NumOfGames)
GLOBAL DefPath$ (NumOfGames)
GLOBAL GROUP$
GLOBAL GROUPA$
GLOBAL DIR$
GLOBAL DEST$ ''Default destination directory.
GLOBAL WINDRIVE$ ''Windows drive letter.
GLOBAL OPT1OPT$ ''Option selection from OptFiles1 option dialog.
GLOBAL OPT2OPT$ ''Option selection from OptFiles2 option dialog.
''CustInst list symbol names
GLOBAL APPNEEDS$ ''Option list costs per drive
GLOBAL OPT1NEEDS$
GLOBAL OPT2NEEDS$
GLOBAL EXTRACOSTS$ ''List of extra costs to add per drive
GLOBAL BIGLIST$ ''List of option files cost calc results (boolean)
''Dialog list symbol names
GLOBAL LISTITEMS$
GLOBAL CHECKSTATES$
GLOBAL STATUSTEXT$
GLOBAL DRIVETEXT$
DECLARE FUNCTION SetWindowLong LIB "User" (hWnd%, Oset%, sty&) AS LONG
DECLARE FUNCTION ShowWindow LIB "User" (hWnd%, Show%) AS INTEGER
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
INIT:
hWnd% = HwndFrame()
SX& = SetWindowLong(hWnd%, -16, &H10000000+&H00800000+&H02000000)
SY& = ShowWindow(hWnd%, 3)
CUIDLL$ = "mscuistf.dll" ''custom user interface dll
HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
''SetBitmap CUIDLL$, LOGO
SetTitle "Global Star Software CD-ROM"
GROUP$ = "ACTION2" ''name of directory and group
GROUPA$ = "25 Great Action Games Volume 2" ''name of second group
DIR$ = "GSTAR\" + GROUP$
'' note: these are the game titles with the first char C=CDROM, D=Hard Disk
GAMES$ (1)= "Wolfenstein 3D Advanced"
GAMES$ (2)= "Ancients Deathwatch"
GAMES$ (3)= "Crystal Caves"
GAMES$ (4)= "Commander Keen Dreams"
GAMES$ (5)= "Overkill"
GAMES$ (6)= "Secret Agent"
GAMES$ (7)= "Solar Winds"
GAMES$ (8)= "Wolfenstein Spear of Destiny"
GAMES$ (9)= "Kiloblaster"
GAMES$ (10)= "Dark Ages"
GAMES$ (11)= "One Must Fall"
GAMES$ (12)= "Space Chase"
GAMES$ (13)= "Wolfenstein 3D"
GAMES$ (14)= "Sinister Syndicate"
GAMES$ (15)= "Commander Keen 6"
GAMES$ (16)= "Xargon"
GAMES$ (17)= "Electro Man"
GAMES$ (18)= "Corridor 7"
GAMES$ (19)= "Ninja Rabbit"
GAMES$ (20)= "Prince of Persia"
GAMES$ (21)= "Quadroid"
GAMES$ (22)= "Starfire"
GAMES$ (23)= "Executioner"
GAMES$ (24)= "3D Catacomb Abyss"
GAMES$ (25)= "3D Maze Wars"
'' note: these are the subdirectory and exe file names
PATHS$ (1)= "WOLFADV"
PATHS$ (2)= "ANCIENTS"
PATHS$ (3)= "CRYSTAL"
PATHS$ (4)= "KDREAMS"
PATHS$ (5)= "OVERKILL"
PATHS$ (6)= "SAM1"
PATHS$ (7)= "SOLAR"
PATHS$ (8)= "SOD"
PATHS$ (9)= "KFILE0"
PATHS$ (10)= "DARK"
PATHS$ (11)= "ONEFALL"
PATHS$ (12)= "STORM1"
PATHS$ (13)= "WOLF3D"
PATHS$ (14)= "SYNDPLAY"
PATHS$ (15)= "KEEN6"
PATHS$ (16)= "XRFILE01"
PATHS$ (17)= "EMFILE01"
PATHS$ (18)= "CORR7"
PATHS$ (19)= "NINRAB"
PATHS$ (20)= "PRINCE"
PATHS$ (21)= "QUADROID"
PATHS$ (22)= "STARFIRE"
PATHS$ (23)= "EXDEMO"
PATHS$ (24)= "CATACOMB"
PATHS$ (25)= "MAZEWARS"
OPSYS$ (1)= "DOS"
OPSYS$ (2)= "DOS"
OPSYS$ (3)= "DOS"
OPSYS$ (4)= "DOS"
OPSYS$ (5)= "DOS"
OPSYS$ (6)= "DOS"
OPSYS$ (7)= "DOS"
OPSYS$ (8)= "DOS"
OPSYS$ (9)= "DOS"
OPSYS$ (10)= "DOS"
OPSYS$ (11)= "DOS"
OPSYS$ (12)= "DOS"
OPSYS$ (13)= "DOS"
OPSYS$ (14)= "DOS"
OPSYS$ (15)= "DOS"
OPSYS$ (16)= "DOS"
OPSYS$ (17)= "DOS"
OPSYS$ (18)= "DOS"
OPSYS$ (19)= "DOS"
OPSYS$ (20)= "DOS"
OPSYS$ (21)= "DOS"
OPSYS$ (22)= "DOS"
OPSYS$ (23)= "DOS"
OPSYS$ (24)= "DOS"
OPSYS$ (25)= "DOS"
szInf$ = GetSymbolValue("STF_SRCINFPATH")
IF szInf$ = "" THEN
szInf$ = GetSymbolValue("STF_CWDDIR") + GROUP$ + ".INF"
END IF
ReadInfFile szInf$
WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
DEST$ = WINDRIVE$ + ":\" + DIR$
''CustInst list symbols
LISTITEMSIN$ = "ListItemsIn"
LISTITEMSOUT$ = "ListItemsOut"
FOR i% = 1 TO 25 STEP 1
AddListItem LISTITEMSIN$, GAMES$ (i%)
NEXT i%
''File Option Variables
OPT1OPT$ = "1"
OPT2OPT$ = "1"
'$IFDEF DEBUG
i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
'$ENDIF ''DEBUG
WELCOME:
Background(CUIDLL$)
sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
'' UIPop 1
ELSE
GOSUB ASKQUIT
GOTO WELCOME
END IF
MULTILIST:
sz$ = UIStartDlg(CUIDLL$, SELECT_GAMES, "F25RadioDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
'' UIPop 1
GOTO GETPATH
ELSEIF sz$ = "BTN2" THEN
GOTO MULTILIST
ELSEIF sz$ = "BTN3" THEN
GOTO MULTILIST
ELSE
GOSUB ASKQUIT
GOTO MULTILIST
END IF
GETPATH:
SetSymbolValue "EditTextIn", DEST$
SetSymbolValue "EditFocus", "END"
j%=0
FOR i% = 1 TO 25 STEP 1
PomStr$ = GetListItem(LISTITEMSOUT$, i%)
IF PomStr$ = "DISK" THEN
j% = j% + 1
ENDIF
NEXT i%
IF j% = 0 THEN
'' UIPop 1
GOTO INSTALL
ENDIF
GETPATHL1:
sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
olddest$ = DEST$
DEST$ = GetSymbolValue("EditTextOut") ''+ "\" + DIR$
''Validate new path.
IF IsDirWritable(DEST$) = 0 THEN
GOSUB BADPATH
GOTO GETPATHL1
END IF
UIPop 1
olddest$ = ""
ELSEIF sz$ = "REACTIVATE" THEN
GOTO GETPATHL1
ELSEIF sz$ = "EXIT" THEN
GOSUB ASKQUIT
GOTO GETPATHL1
ELSE
UIPop 1
END IF
INSTALL:
SrcDir$ = GetSymbolValue("STF_SRCDIR")
ClearCopyList
FOR i% = 1 TO NumOfGames STEP 1
DefPath$ (i%) = SrcDir$ + PATHS$ (i%) + "\" + PATHS$ (i%) + ".EXE"
NEXT i%
ItmNum% = GetListLength(LISTITEMSOUT$)
if ItmNum% <> 0 THEN
CreateDir DEST$, cmoNone
ENDIF
FOR i% = 1 TO ItmNum% STEP 1
PomStr$ = GetListItem(LISTITEMSOUT$, i%)
IF PomStr$ = "DISK" THEN
PomStr$=GAMES$ (i%)
'' PomStr$=MID$( PomStr$, 2, LEN(PomStr$)-1)
AddSectionFilesToCopyList PomStr$ , SrcDir$ + PATHS$ (i%), DEST$ + "\" + PATHS$ (i%)
CreateDir DEST$ + "\" + PATHS$ (i%), cmoNone
DefPath$ (i%) = DEST$ + "\" + PATHS$ (i%) + "\" + PATHS$ (i%) + ".EXE"
PomStr$ = ""
ENDIF
NEXT i%
WinFile$=GetWindowsDir+"Globstar.ico"
SrcFile$=SrcDir$+"Globstar.ico"
CopyFile SrcFile$, WinFile$, 0, 0
SrcDir$ = ""
CopyFilesInCopyList
CreateProgmanGroup GROUPA$, "", cmoNone
ShowProgmanGroup GROUPA$, 1, cmoNone
FOR mm% = 1 TO NumOfGames STEP 1
PomStr$=GAMES$ (mm%)
''PomStr$=MID$( PomStr$, 2, LEN(PomStr$)-1)
IF OPSYS$ (mm%) = "DOS" THEN
CreateProgmanItem GROUPA$, PomStr$, DefPath$ (mm%), "Globstar.ico", cmoOverwrite
ELSE
CreateProgmanItem GROUPA$, PomStr$, DefPath$ (mm%), "", cmoOverwrite
ENDIF
NEXT mm%
QUIT:
ON ERROR GOTO ERRQUIT
IF ERR = 0 THEN
dlg% = EXITSUCCESS
ELSEIF ERR = STFQUIT THEN
dlg% = EXITQUIT
ELSE
dlg% = EXITFAILURE
END IF
QUITL1:
UIPop 1
UIPop 1
Background(CUIDLL$)
sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO QUITL1
END IF
UIPop 1
END
ERRQUIT:
i% = DoMsgBox("Setup sources were corrupted, start over again!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
TOOBIG:
sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO TOOBIG
END IF
UIPop 1
RETURN
BADPATH:
sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
IF sz$ = "EXIT" THEN
UIPopAll
ERROR STFQUIT
ELSEIF sz$ = "REACTIVATE" THEN
GOTO ASKQUIT
ELSE
UIPop 1
END IF
RETURN
'**
'** Purpose:
'** Appends a file name to the end of a directory path,
'** inserting a backslash character as needed.
'** Arguments:
'** szDir$ - full directory path (with optional ending "\")
'** szFile$ - filename to append to directory
'** Returns:
'** Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
IF szDir$ = "" THEN
MakePath = szFile$
ELSEIF szFile$ = "" THEN
MakePath = szDir$
ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
MakePath = szDir$ + szFile$
ELSE
MakePath = szDir$ + "\" + szFile$
END IF
END FUNCTION